;; 测试调用continuation函数并返回值

(display "测试调用continuation函数并返回值\n")

(let ((result (call/cc (lambda (k) 
                         (display "在lambda内部\n")
                         (display "调用continuation前\n")
                         (k 42)
                         (display "调用continuation后 - 这一行不应该被执行\n")
                         100))))
  (begin
    (display "结果: ")
    (display result)
    (display "\n")))
(display "测试结束\n")